put_VS Subroutine

private subroutine put_VS(string, iostat)

Append a varying string to the current record of the default unit

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string
integer, intent(out), optional :: iostat

Source Code

  subroutine put_VS (string, iostat)

    type(varying_string), intent(in) :: string
    integer, intent(out), optional   :: iostat


    call put(char(string), iostat)

! Finish

  end subroutine put_VS